home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGMISC / FORTRAN1.LZH / EXISTS.FOR < prev    next >
Text File  |  1988-02-08  |  2KB  |  85 lines
  1.       LOGICAL FUNCTION EXISTS ( FNAME )
  2. C*
  3. C*                  *******************************
  4. C*                  *******************************
  5. C*                  **                           **
  6. C*                  **          EXISTS           **
  7. C*                  **                           **
  8. C*                  *******************************
  9. C*                  *******************************
  10. C*
  11. C*     SUBPROGRAM :
  12. C*          FILE EXISTANCE
  13. C*
  14. C*     AUTHOR :
  15. C*          ART RAGOSTA
  16. C*          MS 207-5
  17. C*          AMES RESEARCH CENTER
  18. C*          MOFFETT FIELD, CA  94035
  19. C*          (415) 694-5578
  20. C*
  21. C*     PURPOSE :
  22. C*          TO DETERMINE IF A FILE EXISTS ON THE SPECIFIED OR DEFAULT
  23. C*          DIRECTORY.
  24. C*
  25. C*     METHODOLOGY :
  26. C*          OPENS THE FILE AS AN OLD FILE AND CHECKS TO SEE IF THIS
  27. C*          CREATES AN ERROR.  IF IT DOES, THE FILE PROBABLY DOESN'T
  28. C*          EXIST.  CLOSES FILE.
  29. C*
  30. C*     INPUT ARGUMENTS :
  31. C*          FNAME - THE NAME OF THE FILE TO BE CHECKED.
  32. C*
  33. C*     OUTPUT ARGUMENTS :
  34. C*          FUNCTION VALUE EXISTS - SET TRUE IF THE FILE WAS FOUND WITHOUT
  35. C*                ERROR, SET FALSE OTHERWISE.
  36. C*
  37. C*     INTERNAL WORK AREAS :
  38. C*          NONE
  39. C*
  40. C*     COMMON BLOCKS :
  41. C*          NONE
  42. C*
  43. C*     FILE REFERENCES :
  44. C*          0 - DUMMY UNIT USED FOR THE OPEN AND CLOSE STATEMENTS.
  45. C*
  46. C*     DATA BASE ACCESS :
  47. C*          NONE
  48. C*
  49. C*     SUBPROGRAM REFERENCES :
  50. C*          NONE
  51. C*
  52. C*     ERROR PROCESSING :
  53. C*          ERR= USED ON THE OPEN AND CLOSE STATEMENTS.
  54. C*
  55. C*     TRANSPORTABILITY LIMITATIONS :
  56. C*          NONE
  57. C*
  58. C*     ASSUMPTIONS AND RESTRICTIONS :
  59. C*          NONE
  60. C*
  61. C*     LANGUAGE AND COMPILER :
  62. C*          ANSI FORTRAN 77
  63. C*
  64. C*     VERSION AND DATE :
  65. C*          VERSION I.0     31-AUG-84
  66. C*
  67. C*     CHANGE HISTORY :
  68. C*          31-AUG-84    INITIAL VERSION
  69. C*
  70. C***********************************************************************
  71. C*
  72.       CHARACTER *(*) FNAME
  73. C
  74.       OPEN (UNIT=0,STATUS='OLD',FILE=FNAME,ERR=1000)
  75.       CLOSE (UNIT=0,ERR=1000)
  76.       EXISTS = .TRUE.
  77.       RETURN
  78. C
  79. 1000  EXISTS = .FALSE.
  80.       RETURN
  81.       END
  82. C
  83. C---END EXISTS
  84. C
  85.